(require :asdf)
(let ((*standard-output* (make-broadcast-stream))
      (*error-output* (make-broadcast-stream)))
  (asdf:oos 'asdf:load-op :happyos
	    :verbose nil))
(happy-shell:start-shell)
(cl-user::quit)